home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / TRACER.ICN < prev    next >
Text File  |  1990-03-28  |  460b  |  24 lines
  1. global s
  2. procedure main()
  3.    &trace := -1
  4.    s := "abcdef"
  5.    &subject := "123456"
  6.    &pos := 4
  7.    every tracer(1)
  8.    every foo(&pos | &subject | &pos[1] | &subject[2:5])
  9. end
  10.  
  11. procedure tracer(a)
  12.    local i
  13.    static j
  14.    i := 2
  15.    j := 3
  16.    suspend a | i | j | s | &subject |
  17.       &pos | &random | &trace | &subject[3:4] | &pos[1] |
  18.       s[3] | s[3:5] | &random[1] | &trace[1] | &subject[2:5][1]
  19. end
  20.  
  21. procedure foo(s)
  22.    return s
  23. end
  24.